home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / alphaspell / docs / register < prev    next >
Encoding:
Text File  |  1997-02-16  |  3.1 KB  |  135 lines
  1. ; Registration script for AlphaSpell
  2. ; Copyright (c) 1995 Fergus Duniho
  3.  
  4. (if (= @language "english") (
  5.     (set intro-text
  6.         "This is not an installation script. It just takes advantage of the"
  7.         "Installer program to create a registration form for AlphaSpell."
  8.     )
  9.     (set where-text "Where do you want the form to go?")
  10.     (set name-text "What is your name?")
  11.     (set email-text "What is your email address?")
  12.     (set country-text "What country do you live in?")
  13.     (set state-text "What state do you live in?")
  14.     (set provence-text "What provence do you live in?")
  15.     (set zipcode-text "What is your zipcode")
  16.     (set city-text "What is the name of your city?")
  17.     (set street-text "What is your street address?")
  18.     (set done-text
  19.         "The completed registration form is called %ld. Print it out and"
  20.         "mail it to me to register AlphaSpell."
  21.     )
  22. )
  23.  
  24. (if (= @language "german") (
  25.     (set intro-text
  26.         "Diese ist eine Installationschrift nicht."
  27.     )
  28.     (set name-text "Was ist Ihr Name?")
  29.     (set email-text "Was ist Ihre Emailaddresse?")
  30.     (set country-text "Welche
  31.  
  32. (set file
  33.     (tackon
  34.         (askdir
  35.             (prompt
  36.             )
  37.             (help @askdir-help)
  38.             (default "RAM:")
  39.         )
  40.         "Registration-Form"
  41.     )
  42. )
  43.  
  44. (set name
  45.     (askstring
  46.         (prompt "What is your name?\nE.g. Fergus Duniho")
  47.         (help @askstring-help)
  48.     )
  49. )
  50.  
  51. (set email
  52.     (askstring
  53.         (prompt "What is your email address?\nE.g. fdnh@troi.cc.rochester.edu")
  54.         (help @askstring-help)
  55.     )
  56. )
  57.  
  58. (set response
  59.     (askchoice
  60.         (prompt "What country do you live in?")
  61.         (help @askchoice-help)
  62.         (choices "United States" "Canada" "Other")
  63.     )
  64. )
  65.  
  66. (if (= response 0) (
  67.     (set country "USA")
  68.     (set state
  69.         (askstring
  70.             (prompt "What state do you live in?")
  71.             (help @askstring-help)
  72.         )
  73.     )
  74. ))
  75.  
  76. (if (= response 1) (
  77.     (set country "Canada")
  78.     (set state
  79.         (askstring
  80.             (prompt "What province do you live in?")
  81.             (help @askstring-help)
  82.         )
  83.     )
  84. ))
  85.  
  86. (if (= response 2)
  87.     (set country
  88.         (askstring
  89.             (prompt "What country do you live in?")
  90.             (help @askstring-help)
  91.         )
  92.     )
  93. )
  94.  
  95. (set zipcode
  96.     (askstring
  97.         (prompt "What is your zipcode?\nE.g. 14611-4148")
  98.         (help @askstring-help)
  99.     )
  100. )
  101.  
  102. (set city
  103.     (askstring
  104.         (prompt "What is the name of your city?\nE.g. Rochester")
  105.         (help @askstring-help)
  106.     )
  107. )
  108.  
  109. (set address
  110.     (askstring
  111.         (prompt
  112.             "What is your box number or street address?\n"
  113.             "E.g. 1095 Genesee St."
  114.         )
  115.         (help @askstring-help)
  116.     )
  117. )
  118.  
  119. (run
  120.     (cat
  121.         "echo >" file " \"Please mail this form to:*n*n"
  122.         "Fergus Duniho*n1095 Genesee St.*nRochester, NY 14611-4148*n*n"
  123.         "Enclosed is $20.00 for the keyfile to AlphaSpell.*n"
  124.         "Please send it to:*n*n" name "*n" email "*n"
  125.         address "*n" city ", " state " " country " " zipcode "\""
  126.     )
  127. )
  128.  
  129. (message
  130.     "The completed registration form is called " file ". Print it out "
  131.     "and mail it to me to register AlphaSpell."
  132. )
  133.  
  134. (exit (quiet))
  135.